home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 210
- Top = 243
- Width = 549
- Height = 358
- HelpContext = 100
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- Caption = 'Form1'
- Color = clBtnFace
- DefaultMonitor = dmDesktop
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- OnHelp = FormHelp
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 541
- Height = 28
- Align = alTop
- Caption = 'HTMLHelp Example'
- Color = clNavy
- Font.Charset = ANSI_CHARSET
- Font.Color = clRed
- Font.Height = -24
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentColor = False
- ParentFont = False
- end
- object Label2: TLabel
- Left = 0
- Top = 40
- Width = 155
- Height = 13
- Caption = 'Current Focused Control'#39's Map #'
- end
- object Label3: TLabel
- Left = 0
- Top = 56
- Width = 163
- Height = 13
- Caption = 'This will change after F1 is pushed'
- end
- object Label4: TLabel
- Left = 40
- Top = 120
- Width = 128
- Height = 13
- Caption = 'Enter the map number here'
- end
- object Edit1: TEdit
- Left = 168
- Top = 40
- Width = 65
- Height = 21
- HelpContext = 200
- TabOrder = 0
- end
- object Memo1: TMemo
- Left = 304
- Top = 88
- Width = 169
- Height = 105
- HelpContext = 300
- Lines.Strings = (
- 'Map Numbers'
- '#define SettingUp 100'
- '#define CSHelp 200'
- '#define HelpContext 300'
- '#define OnHelp 400'
- '#define Example 500'
- ''
- ''
- ''
- ''
- ''
- ''
- '')
- TabOrder = 1
- end
- object Button1: TButton
- Left = 400
- Top = 40
- Width = 75
- Height = 25
- HelpContext = 400
- Caption = 'Show Index'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Edit2: TEdit
- Left = 176
- Top = 120
- Width = 65
- Height = 21
- HelpContext = 100
- TabOrder = 3
- end
- object Button2: TButton
- Left = 112
- Top = 152
- Width = 75
- Height = 25
- HelpContext = 500
- Caption = 'Display'
- TabOrder = 4
- OnClick = Button2Click
- end
- object MainMenu1: TMainMenu
- Left = 304
- object Help1: TMenuItem
- Caption = 'Help'
- object ContentsandIndex1: TMenuItem
- Caption = 'Contents and Index'
- OnClick = ContentsandIndex1Click
- end
- end
- end
- end
-